home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
program
/
prtrep51.zip
/
REPSRC.ZIP
/
REPDEM04.DFM
/
REPDEM04.txt
Wrap
Text File
|
1996-06-24
|
5KB
|
217 lines
object dem04form: Tdem04form
Left = 126
Top = 289
Width = 600
Height = 440
Caption = 'Report Demo 4'
Font.Color = clWindowText
Font.Height = -18
Font.Name = 'System'
Font.Style = []
PixelsPerInch = 120
Position = poScreenCenter
TextHeight = 20
object Panel1: TPanel
Left = 0
Top = 0
Width = 592
Height = 89
Align = alTop
TabOrder = 0
object Label1: TLabel
Left = 20
Top = 12
Width = 370
Height = 19
Caption = 'This is a Demo of the TPrintGridReport Component'
Color = clBtnFace
Font.Color = clMaroon
Font.Height = -17
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label2: TLabel
Left = 20
Top = 36
Width = 260
Height = 19
Caption = 'and SubTotals and Calcutated fields'
Color = clBtnFace
Font.Color = clMaroon
Font.Height = -17
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label3: TLabel
Left = 20
Top = 60
Width = 415
Height = 19
Caption = 'Note: The printer is forced to print Landscape Orientation'
Color = clBtnFace
Font.Color = clMaroon
Font.Height = -17
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Preview: TBitBtn
Left = 472
Top = 12
Width = 109
Height = 29
Caption = 'Pre&View'
TabOrder = 0
OnClick = PreviewClick
end
object Exit: TBitBtn
Left = 492
Top = 48
Width = 89
Height = 33
Caption = '&Exit'
ModalResult = 1
TabOrder = 1
end
end
object Panel2: TPanel
Left = 0
Top = 89
Width = 592
Height = 324
Align = alClient
BevelInner = bvLowered
BorderWidth = 4
TabOrder = 1
object DBGrid1: TDBGrid
Left = 6
Top = 6
Width = 580
Height = 312
Align = alClient
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -17
Font.Name = 'Arial Narrow'
Font.Style = []
ParentFont = False
TabOrder = 0
TitleFont.Color = clBlue
TitleFont.Height = -15
TitleFont.Name = 'Arial Narrow'
TitleFont.Style = [fsBold]
end
end
object Query1: TQuery
Active = True
DatabaseName = 'DBDEMOS'
SQL.Strings = (
'Select'
' parts."PartNo",'
' parts."VendorNo",'
' parts."Description",'
' parts."OnHand",'
' parts."OnOrder",'
' parts."Cost",'
' parts."ListPrice"'
'From "parts.db"'
'As parts'
'order by'
'VendorNo')
Left = 324
Top = 65532
object Query1PartNo: TFloatField
DisplayWidth = 6
FieldName = 'PartNo'
end
object Query1VendorNo: TFloatField
FieldName = 'VendorNo'
end
object Query1Description: TStringField
DisplayWidth = 23
FieldName = 'Description'
Size = 30
end
object Query1OnHand: TFloatField
DisplayWidth = 8
FieldName = 'OnHand'
end
object Query1OnOrder: TFloatField
DisplayWidth = 8
FieldName = 'OnOrder'
end
object Query1Cost: TCurrencyField
DisplayWidth = 6
FieldName = 'Cost'
Currency = True
end
object Query1ListPrice: TCurrencyField
DisplayWidth = 9
FieldName = 'ListPrice'
Currency = True
end
end
object DataSource1: TDataSource
DataSet = Query1
Left = 292
Top = 65532
end
object PrintGridReport1: TPrintGridReport
ViewButtonVisible = False
OutputTo = poViewer
Orientation = Default
ViewBkColor = 11234567
Units = poInches
ViewHeading = 'Reportit Viewer'
FooterFont.Color = clWindowText
FooterFont.Height = 12
FooterFont.Name = 'Arial'
FooterFont.Style = []
HeaderFont.Color = clBlack
HeaderFont.Height = -17
HeaderFont.Name = 'Arial'
HeaderFont.Style = []
OnPrintFooter = PrintGridReport1PrintFooter
ZoomPercentage = 100.000000000000000000
HeaderTop = 0.500000000000000000
HeaderStringCenter = 'Page Header'
HeaderEnabled = True
HeaderOutlined = True
HeaderFilled = False
FooterTop = 24.630000000000000000
FooterString = 'Page Footer'
FooterEnabled = True
FooterOutlined = True
FooterFilled = True
DisableControls = True
BorderLeft = 0.250000000000000000
BorderRight = 0.250000000000000000
DateTimeStampEnabled = True
PageNumberEnabled = True
GridHeadingRow = 1.500000000000000000
GridHeadingCol = 0.250000000000000000
GridHeadingEnabled = True
GridHeadingOutlined = True
GridHeadingFilled = False
GridLines = True
LineSpacing = 1.500000000000000000
Grid = DBGrid1
GridMinWidth = True
GridCentered = True
GridPrintTotal = True
PrintSubTotals = False
FrameStyleLeft = frNone
FrameStyleTop = frDoubleThickThin
FrameStyleRight = frNone
FrameStyleBottom = frSingleThin
ReportStyle = rsClassic
Left = 324
Top = 36
end
end